home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 1 / DOS002.dsk / FAST INITIALIZER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  57 lines
  1. 0  LIST 25900
  2. 1  FOR X = 1 TO 2000: NEXT X
  3. 10  TEXT : HOME 
  4. 15  REM RWTS DOS SUBROUTINE
  5. 20  POKE 7936,169: POKE 7937,31: POKE 7938,160: POKE 7939,10: POKE 7940,32: POKE 7941,217: POKE 7942,3: POKE 7943,96: POKE 7944,0:
  6. 21  POKE 7945,0: POKE 7946,1: POKE 7947,96: POKE 7948,1: POKE 7949,0: POKE 7950,17: POKE 7951,1: POKE 7952,32: POKE 7953,31:
  7. 22  POKE 7954,0: POKE 7955,32: POKE 7956,0: POKE 7957,0: POKE 7958,1: POKE 7959,0: POKE 7960,0: POKE 7961,96: POKE 7962,1:
  8. 23  POKE 7963,0: POKE 7964,0: POKE 7965,0: POKE 7966,0: POKE 7967,0: POKE 7968,0: POKE 7969,1: POKE 7970,239: POKE 7971,216:
  9. 90 DTRK = 7950:DSEC = 7951:DLO = 7954:DHI = 7955:DCMD = 7958:RWTS = 7936:ERR = 7959:SLOT = 7947:DRIVE = 7948:BUF = 8192:DVOL = 7960
  10. 100  TEXT : HOME 
  11. 110 S = 6:D = 1
  12. 200  HTAB 11: PRINT "FAST INITIALIZATION": PRINT 
  13. 220  HTAB 12: PRINT "BY DAVID & PETER"
  14. 230  HTAB 16: PRINT "CUSIMANO"
  15. 240  HTAB 12: PRINT "OF TORONTO CANADA": PRINT : HTAB 3: PRINT : PRINT 
  16. 250  POKE 34, PEEK(37):T =  PEEK(34)
  17. 300  PRINT "THIS PROGRAM WILL ERASE ALL"
  18. 310  PRINT "PROGRAMS ON A DISKETTE IN"
  19. 320  PRINT "LESS TIME THEN IT TAKES TO DO"
  20. 330  PRINT "AN 'INIT'."
  21. 340  PRINT : PRINT 
  22. 350  POKE 34, PEEK(37)
  23. 360  HOME : INPUT "WHAT SLOT IS THE DRIVE IN (4-6)?";S: IF S <4  OR S >6  THEN 360
  24. 370  PRINT : POKE 34, PEEK(37)
  25. 380  HOME : INPUT "WHAT DRIVE ARE YOU USING  (1-2)?";D: IF D <1  OR D >2  THEN 380
  26. 390  POKE 34,T: HOME 
  27. 400  PRINT "<CTRL-D>CATALOG": POKE  -16368,0: PRINT : PRINT "HIT ANY KEY TO CONTINUE OR [RESET] ";: GET A$: PRINT : PRINT 
  28. 410  FLASH : PRINT " FAST INITIALIZATION WORKING ": NORMAL : FOR I = 1 TO 3000: NEXT 
  29. 500  POKE DLO,0: POKE DHI,32: POKE DCMD,2: POKE SLOT,S *16: POKE DRIVE,D
  30. 550  FOR I = BUF TO BUF +255: POKE I,0: NEXT 
  31. 560  POKE BUF +1,17
  32. 570  FOR I = 12 TO 1  STEP  -1
  33. 580  POKE DSEC,I
  34. 590 S = I -1: POKE BUF +2,S: IF S = 0  THEN  POKE BUF +1,0
  35. 600  CALL RWTS: NEXT 
  36. 620  POKE DCMD,1
  37. 630  POKE DTRK,17: POKE DSEC,0
  38. 640  CALL RWTS
  39. 700  POKE BUF +48,255: POKE BUF +49,248
  40. 750  FOR I = BUF +68 TO BUF +192  STEP 4
  41. 760  POKE I,255: POKE I +1,248
  42. 770  NEXT : POKE BUF +124,0: POKE BUF +125,0
  43. 780  POKE DCMD,2
  44. 790  CALL RWTS
  45. 800  POKE 34,T: HOME : INVERSE : PRINT " FAST INITIALIZATION COMPLETED ": NORMAL : TEXT 
  46. 810  FOR I = 1 TO 2000: NEXT I
  47. 820  POKE 34,T: HOME 
  48. 830  PRINT "ALL PROGRAMS ON VOLUME " PEEK(DVOL)
  49. 840  PRINT "HAVE BEEN ERASED.": PRINT 
  50. 850  PRINT "THE GREETING PROGRAM (EG. 'HELLO')"
  51. 860  PRINT "HAS NOT BEEN DELETED. TO CHANGE THIS"
  52. 870  PRINT "USE 'UPDATE 3.2' WHICH CAN BE FOUND"
  53. 880  PRINT "ON YOUR SYSTEM MASTER DOS 3.2 PLUS DISK"
  54. 890  PRINT "WHICH YOU SHOULD HAVE RECIEVED WITH"
  55. 900  PRINT "THE PURCHASE OF YOUR DISK."
  56. 910  TEXT : VTAB  PEEK(37) -1
  57. 25900  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>           <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>FROM:  APPLE-CAN<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>